home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / cpd-int.bas < prev    next >
BASIC Source File  |  1994-06-23  |  698b  |  20 lines
  1. 10 LPRINT "             ***INTEREST COMPOUNDED MONTHLY***
  2. 20 LPRINT:LPRINT
  3. 30 INPUT "ENTER YEARLY INTEREST RATE IN PERCENT (%)";RATE
  4. 40 LPRINT "INTEREST RATE IN PERCENT";RATE
  5. 50 LPRINT:LPRINT
  6. 60 RATE = RATE/100
  7. 70 INPUT "ENTER STARTING BALANCE $";BALANCE
  8. 80 INPUT "ENTER NUMBER OF YEARS TO CALCULATE ";YEAR
  9. 90 LPRINT "MONTH      PRINCIPAL       INTEREST        BALANCE"
  10. 100 A$   = " ##       $$#####.##       $$###.##       $$#####.##
  11. 110 MONTH =1
  12. 120 IF MONTH > 12 * YEAR THEN 190
  13. 130 PRINCIPAL = BALANCE
  14. 140 INTEREST = PRINCIPAL * RATE * (1/12)
  15. 150 BALANCE = PRINCIPAL + INTEREST
  16. 160 LPRINT USING A$;MONTH;PRINCIPAL;INTEREST;BALANCE
  17. 170 MONTH = MONTH + 1
  18. 180 GOTO 120
  19. 190 END
  20.